;THESE ROUTINES PRINT THE CONTENTS OF ONE WORD IN OCTAL OR ASCII
;TO USE THEM, YOU SHOULD:
;	MOVE	C,WORD			;PUT ARGUMENT IN "C"
;	JSR	OCTOUT			;SUBROUTINE CALL

C ← 3
D ← 4
E ← 5

OCTOUT:	0
	MOVNI	E,14
OCLOOP:	ROT	C,3
	HRR	D,C
	ANDI	D,7
	ORI	D,60
	OUTCHR	D
	AOJL	E,OCLOOP
	OUTSTR	[ASCIZ /
/]
	JRST	@OCTOUT

ASCOUT:	0
	MOVNI	E,5
	ROT	C,1			;MAY BE NEEDED TO LEFT JUSTIFY
ASLOOP:	ROT	C,7
	OUTCHR	C
	AOJL	E,ASLOOP
	OUTSTR	[ASCIZ /
/]
	JRST	@ASCOUT

;------------------------------------
;THESE ARE THE STANDARD EXITS FROM FAIL

BOMB:	OUTSTR	[ASCIZ /I-O ERROR/]
DONE:	EXIT